PROGRAM hello;
  VAR 
    a, b, c: INTEGER;

  FUNCTION unused: INTEGER;
  BEGIN 
  END;(* return 0*)


BEGIN 
  WriteLn('input:');
  ReadLn(a);
  WriteLn('output: ', a * a);
  ReadLn();
END.